Notes/Domino 6 and 7 Forum : Extract XML data

I've the following XML formatted file:
<Main>
<CompanyName>Test</CompanyName>
<Address>
<Type>Postal</Type>
<Street>PO BOX 48</Street>
<Zip>52222</Zip>
</Address>
<Address>
<Type>Registered</Type>
<Street>123 My Street</Street>
<Zip>52222</Zip>
</Address>

<Person>
<Name>James</Name>
<Address>123 James address</Address>
</Person>
<Person>
<Name>Paul</Name>
<Address>123 Paul address</Address>
</Person>
</Main>

When i use:
Set addrList = eNode.GetElementsByTagName("address")
For j = 1 To addrList.NumberOfEntries
'process each of the address tag
Next

The number of entries for address tag is 4, because there are 4 address tags.

Is there a method that will only allow me to retrieve the address tags under the parent <Main> tag but not under the <Person> tags. Basically, i'm trying to process the tags in each of the <Person> tag together...

i.e.
The process that i want:

From the root, process:
- companyName tag and retrieve its value
- process each of the address tag and retrieve the values in Type, Street and Zip tags
- process each of the Person tag and retrieve the values in Name and address tags

Please advice